100 Plus Great Games 2/100PLUSV2.BIN/games/3BillyGoats.dxr/00031_attack button.ls

Text File | 2002-01-25 | 20.8 KB | 640 lines

property spriteNum
global gDeck, gShuffle, gPlayerHand, gCompHand, gPlayerScore, gCompScore, gCardsRemaining, gCardsSelected, gDistance, gLooper, gBridge, gSingleCardSelected1, gSingleCardSelected2, gSingleCardSelected3, gSingleCardSelected4, gSingleCardSelected5, gGoatPos, gOgrePos, gEnemyDistance, gAttack, gCardsUsed, gPaused, gCount, gEnemyCard, gGoatScore, gOgreScore, gOgreFlyDistance, gMultiple, gWait4Rest, gRestart

on mouseDown me
  if gPaused = 0 then
    if gCardsSelected >= 1 then
      sprite(spriteNum).member = "attack1_invert"
      if gCardsSelected > 1 then
        if gSingleCardSelected1 = 1 then
          if gPlayerHand[1] = 0 then
            gDistance = 0
          else
            if gPlayerHand[1] = 1 then
              gDistance = 1
            else
              if gPlayerHand[1] = 2 then
                gDistance = 2
              else
                if gPlayerHand[1] = 3 then
                  gDistance = 3
                else
                  if gPlayerHand[1] = 4 then
                    gDistance = 4
                  else
                    if gPlayerHand[1] = 5 then
                      gDistance = 5
                    end if
                  end if
                end if
              end if
            end if
          end if
          if gSingleCardSelected2 = 1 then
            if gPlayerHand[2] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
          if gSingleCardSelected3 = 1 then
            if gPlayerHand[3] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
          if gSingleCardSelected4 = 1 then
            if gPlayerHand[4] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
          if gSingleCardSelected5 = 1 then
            if gPlayerHand[5] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
        end if
        if gSingleCardSelected2 = 1 then
          if gPlayerHand[2] = 0 then
            gDistance = 0
          else
            if gPlayerHand[2] = 1 then
              gDistance = 1
            else
              if gPlayerHand[2] = 2 then
                gDistance = 2
              else
                if gPlayerHand[2] = 3 then
                  gDistance = 3
                else
                  if gPlayerHand[2] = 4 then
                    gDistance = 4
                  else
                    if gPlayerHand[2] = 5 then
                      gDistance = 5
                    end if
                  end if
                end if
              end if
            end if
          end if
          if gSingleCardSelected1 = 1 then
            if gPlayerHand[1] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
          if gSingleCardSelected3 = 1 then
            if gPlayerHand[3] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
          if gSingleCardSelected4 = 1 then
            if gPlayerHand[4] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
          if gSingleCardSelected5 = 1 then
            if gPlayerHand[5] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
        end if
        if gSingleCardSelected3 = 1 then
          if gPlayerHand[3] = 0 then
            gDistance = 0
          else
            if gPlayerHand[3] = 1 then
              gDistance = 1
            else
              if gPlayerHand[3] = 2 then
                gDistance = 2
              else
                if gPlayerHand[3] = 3 then
                  gDistance = 3
                else
                  if gPlayerHand[3] = 4 then
                    gDistance = 4
                  else
                    if gPlayerHand[3] = 5 then
                      gDistance = 5
                    end if
                  end if
                end if
              end if
            end if
          end if
          if gSingleCardSelected2 = 1 then
            if gPlayerHand[2] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
          if gSingleCardSelected1 = 1 then
            if gPlayerHand[1] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
          if gSingleCardSelected4 = 1 then
            if gPlayerHand[4] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
          if gSingleCardSelected5 = 1 then
            if gPlayerHand[5] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
        end if
        if gSingleCardSelected4 = 1 then
          if gPlayerHand[4] = 0 then
            gDistance = 0
          else
            if gPlayerHand[4] = 1 then
              gDistance = 1
            else
              if gPlayerHand[4] = 2 then
                gDistance = 2
              else
                if gPlayerHand[4] = 3 then
                  gDistance = 3
                else
                  if gPlayerHand[4] = 4 then
                    gDistance = 4
                  else
                    if gPlayerHand[4] = 5 then
                      gDistance = 5
                    end if
                  end if
                end if
              end if
            end if
          end if
          if gSingleCardSelected2 = 1 then
            if gPlayerHand[2] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
          if gSingleCardSelected1 = 1 then
            if gPlayerHand[1] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
          if gSingleCardSelected3 = 1 then
            if gPlayerHand[3] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
          if gSingleCardSelected5 = 1 then
            if gPlayerHand[5] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
        end if
        if gSingleCardSelected5 = 1 then
          if gPlayerHand[5] = 0 then
            gDistance = 0
          else
            if gPlayerHand[5] = 1 then
              gDistance = 1
            else
              if gPlayerHand[5] = 2 then
                gDistance = 2
              else
                if gPlayerHand[5] = 3 then
                  gDistance = 3
                else
                  if gPlayerHand[5] = 4 then
                    gDistance = 4
                  else
                    if gPlayerHand[5] = 5 then
                      gDistance = 5
                    end if
                  end if
                end if
              end if
            end if
          end if
          if gSingleCardSelected2 = 1 then
            if gPlayerHand[2] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
          if gSingleCardSelected1 = 1 then
            if gPlayerHand[1] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
          if gSingleCardSelected4 = 1 then
            if gPlayerHand[4] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
          if gSingleCardSelected3 = 1 then
            if gPlayerHand[3] = gDistance then
            else
              sprite(120).member = "sign_cardsIdentical"
              sprite(120).visible = 1
              puppetSound(3, "sheepbaa")
              gPaused = 1
              gRestart = 1
            end if
          end if
        end if
        pMoveSelected = 1
      end if
    end if
  end if
end

on mouseLeave
  sprite(spriteNum).member = "attack1"
  pMoveSelected = 0
end

on mouseUp
  if gPaused = 0 then
    if gCardsSelected >= 1 then
      if (gOgrePos - gGoatPos) = gDistance then
        sprite(spriteNum).member = "attack1"
        pMoveSelected = 0
        gBridge[gGoatPos] = 0
        gLooper = 0
        repeat while gLooper < gDistance
          puppetSound(1, "WormWalk1")
          sprite(35).member = "goaty1"
          sprite(35).locH = sprite(35).locH + 12
          sprite(35).locV = sprite(35).locV + 4
          repeat with gCount = 50 to 70
            sprite(gCount).locH = sprite(gCount).locH + 12
            sprite(gCount).locV = sprite(gCount).locV + 4
          end repeat
          startTimer()
          repeat while the timer < 3
            updateStage()
          end repeat
          puppetSound(2, "WormWalk2")
          sprite(35).member = "goaty2"
          sprite(35).locH = sprite(35).locH + 12
          sprite(35).locV = sprite(35).locV + 4
          repeat with gCount = 50 to 70
            sprite(gCount).locH = sprite(gCount).locH + 12
            sprite(gCount).locV = sprite(gCount).locV + 4
          end repeat
          startTimer()
          repeat while the timer < 3
            updateStage()
          end repeat
          gGoatPos = gGoatPos + 1
          gLooper = gLooper + 1
        end repeat
        MultipleGoat()
        repeat with gCount = 1 to 5
          if gDistance = gCompHand[gCount] then
            gBlockCount = gBlockCount + 1
          end if
        end repeat
        if gBlockCount >= gMultiple then
          sprite(98).locV = sprite(40).locV
          sprite(98).locH = sprite(40).locH
          sprite(98).visible = 1
          if gOgrePos <= 28 then
            gGoatScore = gGoatScore - 10
          end if
          gLooper = 0
          repeat while gLooper < gDistance
            puppetSound(1, "WormWalk1")
            sprite(35).member = "goaty1"
            sprite(35).locH = sprite(35).locH - 12
            sprite(35).locV = sprite(35).locV - 4
            repeat with gCount = 50 to 70
              sprite(gCount).locH = sprite(gCount).locH - 12
              sprite(gCount).locV = sprite(gCount).locV - 4
            end repeat
            startTimer()
            repeat while the timer < 3
              updateStage()
            end repeat
            puppetSound(2, "WormWalk2")
            sprite(35).member = "goaty2"
            sprite(35).locH = sprite(35).locH - 12
            sprite(35).locV = sprite(35).locV - 4
            repeat with gCount = 50 to 70
              sprite(gCount).locH = sprite(gCount).locH - 12
              sprite(gCount).locV = sprite(gCount).locV - 4
            end repeat
            startTimer()
            repeat while the timer < 3
              updateStage()
            end repeat
            gGoatPos = gGoatPos - 1
            gLooper = gLooper + 1
          end repeat
          sprite(98).visible = 0
          startTimer()
          repeat while the timer < 5
            updateStage()
          end repeat
          if gGoatPos <= 28 then
            repeat with gCount = 1 to 5
              if gDistance = gCompHand[gCount] then
                if (gOgrePos > 28) or (gCardsUsed >= 21) then
                  gCardsUsed = 5
                  resetGame()
                end if
                if (gGoatPos < 6) or (gCardsUsed >= 21) then
                  gCardsUsed = 5
                  resetGame()
                end if
                if gCount = 1 then
                  gCompHand[1] = gDeck[gCardsUsed]
                  sprite(16).member = "card_" & gDeck[gCardsUsed]
                else
                  if gCount = 2 then
                    gCompHand[2] = gDeck[gCardsUsed]
                    sprite(17).member = "card_" & gDeck[gCardsUsed]
                  else
                    if gCount = 3 then
                      gCompHand[3] = gDeck[gCardsUsed]
                      sprite(18).member = "card_" & gDeck[gCardsUsed]
                    else
                      if gCount = 4 then
                        gCompHand[4] = gDeck[gCardsUsed]
                        sprite(19).member = "card_" & gDeck[gCardsUsed]
                      else
                        if gCount = 5 then
                          gCompHand[5] = gDeck[gCardsUsed]
                          sprite(20).member = "card_" & gDeck[gCardsUsed]
                        end if
                      end if
                    end if
                  end if
                end if
                gCardsUsed = gCardsUsed + 1
                sprite(124 + gCardsUsed).visible = 0
                gCardsRemaining = gCardsRemaining - 1
                member("CardsRemaingText").text = string(gCardsRemaining)
                gMultiple = gMultiple - 1
                if gMultiple <= 0 then
                  exit repeat
                end if
              end if
            end repeat
          end if
        else
          sprite(100).locV = sprite(40).locV
          sprite(100).locH = sprite(40).locH
          sprite(100).visible = 1
          OgreFlyBack()
        end if
        if gGoatPos <= 28 then
          scoreTally()
          if gSingleCardSelected1 = 1 then
            gCardsUsed = gCardsUsed + 1
            sprite(124 + gCardsUsed).visible = 0
            gPlayerHand[1] = gDeck[gCardsUsed]
            sprite(10).member = "card_" & gDeck[gCardsUsed]
            sprite(45).visible = 1
            sprite(45).member = "card_" & gDeck[gCardsUsed + 1]
            gCardsRemaining = gCardsRemaining - 1
            member("CardsRemaingText").text = string(gCardsRemaining)
          end if
          if gSingleCardSelected2 = 1 then
            gCardsUsed = gCardsUsed + 1
            sprite(124 + gCardsUsed).visible = 0
            gPlayerHand[2] = gDeck[gCardsUsed]
            sprite(11).member = "card_" & gDeck[gCardsUsed]
            sprite(45).visible = 1
            sprite(45).member = "card_" & gDeck[gCardsUsed + 1]
            gCardsRemaining = gCardsRemaining - 1
            member("CardsRemaingText").text = string(gCardsRemaining)
          end if
          if gSingleCardSelected3 = 1 then
            gCardsUsed = gCardsUsed + 1
            sprite(124 + gCardsUsed).visible = 0
            gPlayerHand[3] = gDeck[gCardsUsed]
            sprite(12).member = "card_" & gDeck[gCardsUsed]
            sprite(45).visible = 1
            sprite(45).member = "card_" & gDeck[gCardsUsed + 1]
            gCardsRemaining = gCardsRemaining - 1
            member("CardsRemaingText").text = string(gCardsRemaining)
          end if
          if gSingleCardSelected4 = 1 then
            gCardsUsed = gCardsUsed + 1
            sprite(124 + gCardsUsed).visible = 0
            gPlayerHand[4] = gDeck[gCardsUsed]
            sprite(13).member = "card_" & gDeck[gCardsUsed]
            sprite(45).visible = 1
            sprite(45).member = "card_" & gDeck[gCardsUsed + 1]
            gCardsRemaining = gCardsRemaining - 1
            member("CardsRemaingText").text = string(gCardsRemaining)
          end if
          if gSingleCardSelected5 = 1 then
            gCardsUsed = gCardsUsed + 1
            sprite(124 + gCardsUsed).visible = 0
            gPlayerHand[5] = gDeck[gCardsUsed]
            sprite(14).member = "card_" & gDeck[gCardsUsed]
            sprite(45).visible = 1
            sprite(45).member = "card_" & gDeck[gCardsUsed + 1]
            gCardsRemaining = gCardsRemaining - 1
            member("CardsRemaingText").text = string(gCardsRemaining)
          end if
        end if
        gBridge[gGoatPos] = 1
        gSingleCardSelected1 = 0
        gSingleCardSelected2 = 0
        gSingleCardSelected3 = 0
        gSingleCardSelected4 = 0
        gSingleCardSelected5 = 0
        gBlockCount = 0
        gDistance = 0
        gLooper = 0
        gCardsSelected = 0
        startTimer()
        repeat while the timer < 5
          updateStage()
        end repeat
        if (gCardsUsed < 21) and (gCardsRemaining > 0) and (gGoatScore < 100) and (gOgreScore < 100) and (gGoatPos >= 6) and (gOgrePos <= 28) then
          EnemyAI()
        end if
      else
        sprite(120).member = "sign_attackDistance"
        sprite(120).visible = 1
        puppetSound(3, "sheepbaa")
        gPaused = 1
        gRestart = 1
      end if
    else
      sprite(120).member = "sign_selectaCard"
      sprite(120).visible = 1
      puppetSound(3, "sheepbaa")
      gPaused = 1
      gRestart = 1
    end if
  end if
  scoreTally()
end

on OgreFlyBack
  puppetSound(4, "ogre")
  gMultiple = 0
  MultipleGoat()
  gOgreFlyDistance = 6 + (gDistance * gMultiple / 2)
  gBridge[gOgrePos] = 0
  sprite(40).member = "troll_hit2"
  gLooper = 0
  repeat while gLooper < gOgreFlyDistance
    sprite(40).locH = sprite(40).locH + 12
    sprite(40).locV = sprite(40).locV + 4
    repeat with pCount = 72 to 92
      sprite(pCount).locH = sprite(pCount).locH + 12
      sprite(pCount).locV = sprite(pCount).locV + 4
    end repeat
    startTimer()
    repeat while the timer < 3
      updateStage()
    end repeat
    updateStage()
    sprite(40).locH = sprite(40).locH + 12
    sprite(40).locV = sprite(40).locV + 4
    repeat with pCount = 72 to 92
      sprite(pCount).locH = sprite(pCount).locH + 12
      sprite(pCount).locV = sprite(pCount).locV + 4
    end repeat
    startTimer()
    repeat while the timer < 3
      updateStage()
    end repeat
    updateStage()
    gOgrePos = gOgrePos + 1
    gLooper = gLooper + 1
  end repeat
  if gOgrePos > 32 then
    gOgrePos = 32
  end if
  gMultiple = 0
  gBridge[gOgrePos] = 2
  sprite(40).member = "badguy_standing1"
  sprite(100).visible = 0
  startTimer()
  repeat while the timer < 5
    updateStage()
  end repeat
  gGoatScore = gGoatScore + 10
  member("GoatScoreText").text = string(gGoatScore)
  if gOgrePos > 28 then
    gCardsUsed = 5
    sprite(120).member = "fallentroll"
    sprite(120).visible = 1
    puppetSound(3, "sheepbaa")
    gPaused = 1
    gWait4Rest = 1
    gGoatScore = gGoatScore + 10
    member("GoatScoreText").text = string(gGoatScore)
  end if
  if gGoatScore >= 100 then
    gPaused = 1
    puppetSound(5, "win10")
    go(12)
  end if
  AnyPossibleGoatMoves()
end

on MultipleGoat
  repeat with gCount = 1 to 5
    if gDistance = gPlayerHand[gCount] then
      gMultiple = gMultiple + 1
    end if
  end repeat
end